home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / pdf_main.ps < prev    next >
Text File  |  2003-01-03  |  23KB  |  776 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % pdf_main.ps
  8. % PDF file- and page-level operations.
  9.  
  10. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  11. .currentglobal true .setglobal
  12. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  13. pdfdict begin
  14.  
  15. % Patch in an obsolete variable used by some third-party software.
  16. /#? false def
  17.  
  18. % Test whether the current output device handles pdfmark.
  19. /.writepdfmarkdict 1 dict dup /pdfmark null put readonly def
  20. /.writepdfmarks {    % - .writepdfmarks <bool>
  21.   currentdevice //.writepdfmarkdict .getdeviceparams
  22.   mark eq { false } { pop pop true } ifelse
  23.   systemdict /DOPDFMARKS known or 
  24. } bind def
  25.  
  26. % For simplicity, we use a single interpretation dictionary for all
  27. % PDF graphics execution, even though this is too liberal.
  28. /pdfopdict mark
  29.   objopdict { } forall
  30.   drawopdict { } forall
  31.   /endstream { exit } bind
  32.   (%%EOF) cvn { exit } bind        % for filters
  33.     % PDF 1.1 operators
  34.   /BX { /BXlevel BXlevel 1 add store } bind
  35.   /EX { /BXlevel BXlevel 1 sub store } bind
  36.   /PS { cvx exec } bind
  37.     % PDF 1.2 operators
  38.   /BMC { pop } bind
  39.   /BDC { pop pop } bind
  40.   /EMC { }
  41.   /MP { pop } bind
  42.   /DP { pop pop } bind
  43. .dicttomark readonly def
  44.  
  45. % ======================== Main program ======================== %
  46.  
  47. end            % pdfdict
  48. userdict begin
  49.  
  50. /defaultfontname /Times-Roman def
  51.  
  52. % Make sure the registered encodings are loaded, so we don't run the risk
  53. % that some of the indices for their names will overflow the packed
  54. % representation.  (Yes, this is a hack.)
  55. SymbolEncoding pop
  56. DingbatsEncoding pop
  57.  
  58. % Redefine 'run' so it recognizes PDF files.
  59. systemdict begin
  60. /.runps /run load def
  61. /runpdfstring 50 string def        % length is arbitrary
  62. /run {
  63.   dup type /filetype ne { (r) file } if
  64.   dup ( ) .peekstring {
  65.     (%) eq {
  66.       dup (  ) .peekstring {
  67.     (%P) eq {
  68.       dup //runpdfstring {
  69.         % Some invalid files might have extra-long first lines....
  70.         { readline } .internalstopped not { pop pop exit } if
  71.         pop =string
  72.       } loop
  73.       //runpdfstring (%PDF-) anchorsearch {
  74.         pop pop runpdf
  75.       } {
  76.         pop cvx .runexec
  77.       } ifelse
  78.     } {
  79.       cvx .runps
  80.     } ifelse
  81.       } {
  82.     closefile
  83.       } ifelse
  84.     } {
  85.       cvx .runps
  86.     } ifelse
  87.   } {
  88.     closefile
  89.   } ifelse
  90. } bind odef
  91. currentdict /runpdfstring .undef
  92.  
  93. /runpdf            % <file> runpdf -
  94.  { userdict begin
  95.    /Page# null def
  96.    /Page null def
  97.    /DSCPageCount 0 def
  98.    /PDFSave null def
  99.    GS_PDF_ProcSet begin
  100.    pdfdict begin
  101.    pdfopen begin
  102.    Trailer /Root oget /Pages oget /CropBox knownoget
  103.     { mark /CropBox 3 -1 roll /PAGES pdfmark
  104.     }
  105.    if
  106.    /FirstPage where 
  107.     { pop FirstPage dup pdfpagecount gt
  108.       { (\nRequested FirstPage is greater than the number of pages in the file: ) print
  109.         pdfpagecount = flush
  110.       } if
  111.     } {
  112.       1
  113.     } ifelse
  114.    1
  115.    /LastPage where { pop LastPage pdfpagecount .min } { pdfpagecount } ifelse
  116.    2 index 1 index gt
  117.     { (   No pages will be processed \(FirstPage > LastPage\).) = flush }
  118.     { QUIET not
  119.       { (Processing pages ) print 2 index =only ( through ) print dup =only
  120.         (.) = flush
  121.       }
  122.      if
  123.     }
  124.    ifelse
  125.     { dup /Page# exch store
  126.       QUIET not { (Page ) print dup == flush } if
  127.       pdfgetpage pdfshowpage
  128.     } for
  129.    currentdict pdfclose
  130.    end            % temporary dict
  131.    end            % pdfdict
  132.    end            % userdict
  133.  } bind def
  134. end            % systemdict
  135. % Redefine the procedure that the C code uses for running piped input.
  136. % It is OK to use { (%stdin) run } here, because a startjob cannot occur.
  137. /.runstdin {
  138.   { (%stdin) run } execute0
  139. } bind def
  140.  
  141. end            % userdict
  142. pdfdict begin
  143.  
  144. % ======================== File parsing ======================== %
  145.  
  146. % Read the cross-reference and trailer sections.
  147.  
  148. /traileropdict mark
  149.   (<<) cvn { mark } bind
  150.   (>>) cvn /.dicttomark load
  151.   ([) cvn { mark } bind        % ditto
  152.   (]) cvn dup load
  153. %  /true true        % see .pdfexectoken in pdf_base.ps
  154. %  /false false        % ibid.
  155. %  /null null        % ibid.
  156.   /R { /resolveR cvx 3 packedarray cvx } bind    % see Objects below
  157.   /startxref /exit load
  158. .dicttomark readonly def
  159.  
  160. % Because of EOL conversion, lines with fixed contents might be followed
  161. % by one or more blanks.
  162. /lineeq            % <filestr> <conststr> lineeq <bool>
  163.  { anchorsearch
  164.     { pop { ( ) anchorsearch not { () eq exit } if pop } loop }
  165.     { pop false }
  166.    ifelse
  167.  } bind def
  168. /linene { lineeq not } bind def
  169.  
  170. % Read (mostly scan) the cross-reference table.
  171. /readxref        % <pos> readxref <trailerdict>
  172.  { PDFoffset add PDFfile exch setfileposition
  173.         % In some PDF files, this position actually points to
  174.         % white space before the xref line.  Skip over this here.
  175.    { PDFfile fileposition PDFfile read pop 32 gt { exit } if pop
  176.    } loop
  177.    PDFfile exch setfileposition
  178.         % The PDF specification says that the 'xref' must be on a line
  179.         % by itself. The code here formerly used readline and linene to
  180.         % check this. However, Acrobat Reader only requires the line to
  181.         % begin with 'xref', and there are enough applications producing
  182.         % non-compliant PDF files that we have to do this too.
  183.    PDFfile pdfstring 0 4 getinterval readstring pop
  184.    (xref) ne { /readxref cvx /syntaxerror signalerror } if
  185.         % Store the xref table entry position for each object.
  186.         % We only need to read the run headers, not every entry.
  187.     { PDFfile token pop        % first object # or trailer
  188.       dup /trailer eq { pop exit } if
  189.       PDFfile pdfstring readline pop
  190.       token pop            % entry count
  191.       exch pop exch
  192.         % This section might be adding new objects:
  193.         % ensure that Objects and Generations are big enough.
  194.         % Stack: count obj#
  195.       2 copy add growPDFobjects
  196.       PDFfile fileposition 3 -1 roll
  197.        { Objects 2 index lget null eq    % later update might have set it
  198.       { Objects 2 index 2 index cvx lput }
  199.          if exch 1 add exch 20 add
  200.        }
  201.       repeat PDFfile exch setfileposition pop
  202.     } loop
  203.    count /pdfemptycount exch def
  204.    PDFfile traileropdict .pdfrun
  205.  } bind def
  206.  
  207. % Open a PDF file and read the header, trailer, and cross-reference.
  208. /pdfopen {        % <file> pdfopen <dict>
  209.   pdfopenfile begin
  210.   pdfopencache
  211.   .writepdfmarks {
  212.     % Copy bookmarks (outline) to the output.
  213.     Trailer /Root oget /Outlines knownoget {
  214.       /First knownoget {
  215.     { dup writeoutline /Next knownoget not { exit } if } loop
  216.       } if
  217.     } if
  218.   } if        % end .writepdfmarks
  219.   currentdict end
  220. } bind def
  221. /pdfopencache {        % - pdfopencache -
  222.     % Create and initialize some caches.
  223.   /PageCount pdfpagecount def
  224.   /PageNumbers PageCount 65534 min dict def
  225.   /PageIndex PageCount 65534 min array def
  226. } bind def
  227. /pdfopenfile {        % <file> pdfopenfile <dict>
  228.    pdfdict readonly pop        % can't do it any earlier than this
  229.    15 dict begin
  230.    /LocalResources 0 dict def
  231.    /DefaultMatrix null def    % establish binding
  232.    /Printed where { pop } {
  233.         % Guess whether the output device is a printer.
  234.      /Printed currentpagedevice /OutputFile known def
  235.    } ifelse
  236.    /PSLevel1 where { pop } { /PSLevel1 false def } ifelse
  237.    cvlit /PDFfile exch def
  238.    /PDFsource PDFfile def
  239.    /Repaired false def
  240.    PDFfile dup 0 setfileposition pdfstring readstring 
  241.    not {/pdfopen cvx /syntaxerror signalerror} if
  242.    (%PDF-) search not {/pdfopen cvx /syntaxerror signalerror} if
  243.    length /PDFoffset exch def pop cvr /PDFversion exch def
  244.    findxref
  245.    initPDFobjects
  246.     % Read the last cross-reference table.
  247.    readxref /Trailer exch def
  248.    Trailer /Encrypt known
  249.     { pdf_process_Encrypt    % signal error
  250.     }
  251.    if
  252.     % Read any previous cross-reference tables.
  253.    Trailer { /Prev .knownget not { exit } if readxref } loop
  254.    Repaired { printrepaired } if
  255.    currentdict end
  256.  } bind def
  257.  
  258. % Skip backward over the %%EOF at the end of the PDF file, and read
  259. % the preceding startxref line.  The PDF specification unambiguously
  260. % requires that the %%EOF appear on a line by itself, and that the
  261. % startxref and the following position value appear on separate lines;
  262. % however, some applications (including, apparently, Acrobat Distiller
  263. % on the Macintosh) may add up to 2K of garbage after the %%EOF, and some
  264. % other applications also truncate the %%EOF to %%EO, and/or put the
  265. % startxref and the following value on the same line.
  266. % A file reported from Distiller 3.02b for AIX 4.1.1 has 2076 bytes
  267. % of garbage. The tolerance is increased to 4K to cover future
  268. % applications and bigger allocation units.
  269. /findxref {        % - findxref <xrefpos>
  270.   PDFfile dup dup 0 setfileposition bytesavailable
  271.   dup /PDFfilelen exch def
  272.     % Find the last %%EOF string (within 4096 bytes)
  273.   4096 sub PDFoffset .max
  274.   2 copy setfileposition
  275.   PDFfilelen exch sub string 1 index exch readstring pop {
  276.     (\015%%EO) search {        % Adobe can handle truncated key string
  277.       pop pop            % if found, keep searching 'post' string
  278.     } {
  279.       (\012%%EO) search
  280.     { pop pop } { exit } ifelse    % exit if neither string found
  281.     } ifelse
  282.   } loop
  283.   PDFfilelen exch length sub 4 sub PDFoffset .max exch 1 index setfileposition
  284.     % Stack: eofpos
  285.     % Check for whether this is, in fact, a valid PDF file.
  286.   dup PDFfilelen exch sub dup dup 7 gt exch 6 lt or {
  287.     pop true
  288.   } {
  289.     string PDFfile exch readstring pop
  290.     dup (%%EOF\n) eq exch dup (%%EOF\r) eq
  291.     exch (%%EOF\r\n) eq or or not
  292.   } ifelse {
  293.     (
  294.    **** This file has a corrupted %%EOF marker, or garbage after the %%EOF.
  295. ) pdfformaterror
  296.   } if
  297.   PDFfile exch setfileposition
  298.     % Now read the startxref and xref start position.
  299.   prevline token not { null } if dup type /integertype eq {
  300.     exch pop cvi        % xref start position
  301.     exch PDFfile exch setfileposition
  302.     prevline (startxref) linene { /findxref cvx /syntaxerror signalerror } if
  303.     pop
  304.   } {    % else, this file has 'startxref #####' format
  305.     (startxref) ne { /findxref cvx /syntaxerror signalerror } if
  306.     cvi        % xref start position
  307.     (
  308.    **** The format of the startxref line in this file is invalid.
  309. ) pdfformaterror
  310.     exch PDFfile exch setfileposition
  311.   } ifelse
  312. } bind def
  313. /stderrfile (%stderr) (w) file def
  314. /stderrprint {                % <string> stderrprint -
  315.   //stderrfile dup 3 -1 roll writestring flushfile
  316. } bind def
  317. /pdfformaterror {    % <string> pdfformaterror -
  318.   stderrprint
  319.   /Repaired true store
  320. } bind def
  321. /printrepaired {
  322.   Trailer /Info knownoget {
  323.     /Producer knownoget not { null } if
  324.   } {
  325.     null
  326.   } ifelse
  327.   dup null eq {
  328.     pop (\
  329.    **** Please notify the author of the software that produced this file
  330. )
  331.   } {
  332.     (   **** The file was produced by ) stderrprint
  333.     % Handle a Unicode Producer.
  334.     (\376\377) anchorsearch {
  335.       pop dup length 2 idiv string 0 1 2 index length 1 sub {
  336.         % Stack: origstr newstr i
  337.     1 index exch 3 index 1 index 2 mul 1 add get put
  338.       } for exch pop
  339.     } if
  340.     stderrprint
  341.     (:
  342.    **** please notify the author of this software
  343. )
  344.   } ifelse stderrprint
  345. (\
  346.    **** that the file does not conform to Adobe's published PDF
  347.    **** specification.  Processing of the file will continue normally.
  348.  
  349. ) stderrprint
  350. } bind def
  351.  
  352. % Write the outline structure for a file.  Uses linkdest (below).
  353. /writeoutline        % <outlinedict> writeoutline -
  354.  { mark
  355.    0 2 index /First knownoget
  356.     { { exch 1 add exch /Next knownoget not { exit } if } loop }
  357.    if
  358.         % stack: dict mark count
  359.    dup 0 eq
  360.     { pop 1 index
  361.     }
  362.     { 2 index /Count knownoget { 0 lt { neg } if } if
  363.       /Count exch 3 index
  364.     }
  365.    ifelse linkdest /Title oget /Title exch /OUT pdfmark
  366.    /First knownoget
  367.     { { dup writeoutline /Next knownoget not { exit } if } loop }
  368.    if
  369.  } bind def
  370.  
  371. % Close a PDF file.
  372. /pdfclose        % <dict> pdfclose -
  373.  { begin
  374.    PDFfile closefile
  375.    end
  376.  } bind def
  377.  
  378. % ======================== Page accessing ======================== %
  379.  
  380. % Get a (possibly inherited) attribute of a page.
  381. /pget            % <pagedict> <key> pget <value> -true-
  382.             % <pagedict> <key> pget -false-
  383.  { 2 copy knownoget
  384.     { exch pop exch pop true
  385.     }
  386.     { exch /Parent knownoget
  387.        { exch pget }
  388.        { pop false }
  389.       ifelse
  390.     }
  391.    ifelse
  392.  } bind def
  393.  
  394. % Get the value of a resource on a given page.
  395. /rget {            % <resname> <pagedict> <restype> rget <value> -true-
  396.             % <resname> <pagedict> <restype> rget -false-
  397.   LocalResources 1 index knownoget {
  398.      3 index knownoget
  399.   } {
  400.     false
  401.   } ifelse {
  402.     exch pop exch pop exch pop true
  403.   } {
  404.     exch /Resources pget {
  405.       exch knownoget { exch knownoget } { pop false } ifelse
  406.     } {
  407.       pop pop false
  408.     } ifelse
  409.   } ifelse
  410. } bind def
  411.  
  412. % Get the total number of pages in the document.
  413. /pdfpagecount        % - pdfpagecount <int>
  414.  { Trailer /Root oget /Pages oget /Count oget
  415.  } bind def
  416.  
  417. % Find the N'th page of the document by iterating through the Pages tree.
  418. % The first page is numbered 1.
  419. /pdffindpageref {        % <int> pdffindpage <objref>
  420.   dup Trailer /Root oget /Pages get
  421.     {        % We should be able to tell when we reach a leaf
  422.         % by finding a Type unequal to /Pages.  Unfortunately,
  423.         % some files distributed by Adobe lack the Type key
  424.         % in some of the Pages nodes!  Instead, we check for Kids.
  425.       dup oforce /Kids knownoget not { exit } if
  426.       exch pop null
  427.       0 1 3 index length 1 sub {
  428.          2 index exch get
  429.      dup oforce dup /Kids known { /Count oget } { pop 1 } ifelse
  430.         % Stack: index kids null noderef count
  431.      dup 5 index ge { pop exch pop exit } if
  432.      5 -1 roll exch sub 4 1 roll pop
  433.       } for exch pop
  434.         % Stack: index null|noderef
  435.       dup null eq { pop pop 1 null exit } if
  436.     } loop
  437.         % Stack: index countleft noderef
  438.    1 index 1 ne { pop pop /pdffindpage cvx /rangecheck signalerror } if
  439.    exch pop
  440.    PageIndex 2 index 1 sub 65533 min 2 index oforce put
  441.    PageNumbers 1 index oforce 3 index dup 65534 le
  442.     { put }
  443.     { pop pop pop }    % don't store more than 65534 pagenumbers
  444.    ifelse
  445.    exch pop
  446. } bind def
  447. /pdffindpage {        % <int> pdffindpage <pagedict>
  448.   pdffindpageref oforce
  449. } bind def
  450.  
  451. % Find the N'th page of the document.
  452. % The first page is numbered 1.
  453. /pdfgetpage        % <int> pdfgetpage <pagedict>
  454.  { PageIndex 1 index 1 sub dup 65533 lt
  455.     { get }
  456.     { pop pop null }
  457.    ifelse
  458.    dup null ne
  459.     { exch pop oforce }
  460.     { pop pdffindpage }
  461.    ifelse
  462.  } bind def
  463.  
  464. % Find the page number of a page object (inverse of pdfgetpage).
  465. /pdfpagenumber        % <pagedict> pdfpagenumber <int>
  466.  {    % We use the simplest and stupidest of all possible algorithms....
  467.    PageNumbers 1 index .knownget
  468.     { exch pop
  469.     }
  470.     { 1 1 PageCount 1 add    % will give a rangecheck if not found
  471.        { dup pdfgetpage oforce 2 index eq { exit } if pop
  472.        }
  473.       for exch pop
  474.     }
  475.    ifelse
  476.  } bind def
  477.  
  478. % Display a given page.
  479. /boxrect        % [<llx> <lly> <urx> <ury>] boxrect <x> <y> <w> <h>
  480.  { aload pop exch 3 index sub exch 2 index sub
  481.  } bind def
  482. /resolvedest {        % <name|string|other> resolvedest <other|null>
  483.   dup type /nametype eq {
  484.     Trailer /Root oget /Dests knownoget {
  485.       exch knownoget not { null } if
  486.     } {
  487.       null
  488.     } ifelse
  489.   } {
  490.     dup type /stringtype eq {
  491.       Trailer /Root oget /Names knownoget {
  492.     /Dests knownoget {
  493.       exch nameoget
  494.     } {
  495.       pop null
  496.     } ifelse
  497.       } {
  498.     pop null
  499.       } ifelse
  500.     } if
  501.   } ifelse
  502. } bind def
  503. /linkdest {        % <link|outline> linkdest
  504.             %   ([/Page <n>] /View <view> | ) <link|outline>
  505.   dup /Dest knownoget
  506.     { resolvedest
  507.       dup type /dicttype eq { /D knownoget not { null } if } if
  508.       dup null eq
  509.        { pop }
  510.        { dup 0 oget
  511.      dup null eq
  512.       { pop }
  513.       { dup type /integertype ne { pdfpagenumber } if
  514.         /Page exch 4 -2 roll
  515.       }
  516.      ifelse
  517.      dup length 1 sub 1 exch getinterval /View exch 3 -1 roll
  518.        }
  519.       ifelse
  520.     }
  521.    if
  522. } bind def
  523. % <pagedict> mark ... -proc- -
  524. /namedactions 8 dict dup begin
  525.   /FirstPage {
  526.     /Page 1 3 -1 roll
  527.   } def
  528.   /LastPage {
  529.     counttomark 2 add index pdfpagecount /Page exch 3 -1 roll
  530.   } def
  531.   /NextPage {
  532.     counttomark 2 add index pdfpagenumber 1 add /Page exch 3 -1 roll
  533.   } def
  534.   /PrevPage {
  535.     counttomark 2 add index pdfpagenumber 1 sub /Page exch 3 -1 roll
  536.   } def
  537. end readonly def
  538. % <pagedict> <annotdict> -proc- -
  539. /annottypes 5 dict dup begin
  540.   /Text {
  541.     mark exch
  542.      { /Rect /Open /Contents }
  543.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  544.     forall pop /ANN pdfmark
  545.   } bind def
  546.   /Link {
  547.     mark exch
  548.      { /Rect /Border }
  549.      { 2 copy knownoget { 3 -1 roll } { pop } ifelse }
  550.     forall dup /A knownoget {
  551.       dup /URI known {
  552.         /A mark 3 2 roll    % <<>> /A [ <<action>>
  553.         { oforce } forall
  554.         .dicttomark
  555.         3 2 roll
  556.       } {
  557.         dup /D knownoget {
  558.       exch pop exch dup length dict copy dup /Dest 4 -1 roll put
  559.         } {
  560.       /N knownoget {        % Assume /S /Named
  561.          namedactions exch .knownget { exec } if
  562.       } if
  563.         } ifelse
  564.       } ifelse
  565.     } if
  566.     linkdest pop /LNK pdfmark
  567.   } bind def
  568. end readonly def
  569.  
  570. /pdfshowpage        % <pagedict> pdfshowpage -
  571.  { dup /Page exch store
  572.    pdfshowpage_init 
  573.    pdfshowpage_setpage 
  574.    save /PDFSave exch store
  575.    (before exec) VMDEBUG
  576.      pdfshowpage_finish
  577.    (after exec) VMDEBUG
  578.    PDFSave restore
  579.  } bind def
  580.  
  581. /pdfpagecontents    % <pagedict> pdfpagecontents <contents>
  582.  { } bind def
  583.  
  584. /pdfshowpage_init     % <pagedict> pdfshowpage_init <pagedict>
  585.  { /DSCPageCount DSCPageCount 1 add store
  586.  } bind def
  587.  
  588. /.pdfshowpage_Install {    % <pagedict> [<prevproc>] .pdfshowpage_Install -
  589.   exch
  590.     % We would like to clip to the CropBox here, but the subsequent
  591.     % initgraphics would override it.  Instead, we have to handle it
  592.     % in graphicsbeginpage.
  593.   dup /MediaBox pget {
  594.     dup 0 get neg exch 1 get neg translate
  595.   } if
  596.   pop 0 get exec
  597. } bind def
  598.  
  599. /pdfshowpage_setpage {    % <pagedict> pdfshowpage_setpage <pagedict>
  600.   4 dict begin        % for setpagedevice
  601.     % Stack: pagedict
  602.   currentpagedevice /Orientation 2 index /Rotate pget not { 0 } if 90 idiv
  603.     % Rotate specifies *clockwise* rotation!
  604.     neg 3 and def
  605.     % Stack: pagedict currentpagedict
  606.   1 index /MediaBox pget {
  607.             % Set the page size.
  608.     boxrect 2 array astore /PageSize exch def pop pop
  609.   } if
  610.   dup /Install .knownget {
  611.             % Don't let the Install procedure get more deeply
  612.             % nested after every page.
  613.       dup type dup /arraytype eq exch /packedarraytype eq or {
  614.     dup length 4 eq {
  615.       dup 2 get /.pdfshowpage_Install load eq {
  616.         1 get 0 get    % previous procedure
  617.       } if
  618.     } if
  619.       } if
  620.   } {
  621.     { }
  622.   } ifelse 1 array astore
  623.   2 index exch /.pdfshowpage_Install load /exec load
  624.   4 packedarray cvx
  625.     % Stack: pagedict currentpagedict installproc
  626.   /Install exch def
  627.     % Stack: pagedict currentpagedict
  628.   pop currentdict end setpagedevice
  629. } bind def
  630.  
  631. /pdfshowpage_finish {    % <pagedict> pdfshowpage_finish -
  632.  
  633.   .writepdfmarks {
  634.  
  635.     % Copy the crop box.
  636.     dup /CropBox knownoget {
  637.     % If the page has been rotated, rotate the CropBox.
  638.       mark /CropBox 3 -1 roll
  639.       3 index /Rotate pget {
  640.     90 idiv 1 and 0 ne {
  641.       aload pop 4 -2 roll exch 4 2 roll exch 4 array astore
  642.     } if
  643.       } if
  644.       /PAGE pdfmark
  645.     } if
  646.  
  647.     % Copy annotations and links.
  648.     dup /Annots knownoget {
  649.       0 1 2 index length 1 sub
  650.        { 1 index exch oget
  651.          dup /Subtype oget annottypes exch .knownget { exec } { pop } ifelse
  652.        }
  653.       for pop
  654.     } if
  655.  
  656.   } if        % end .writepdfmarks
  657.  
  658.     % Display the actual page contents.
  659.    6 dict begin
  660.    /BXlevel 0 def
  661.    /BGDefault currentblackgeneration def
  662.    /UCRDefault currentundercolorremoval def
  663.     %****** DOESN'T HANDLE COLOR TRANSFER YET ******
  664.    /TRDefault currenttransfer def
  665.   matrix currentmatrix 2 dict
  666.   2 index /CropBox knownoget {
  667.     boxrect 4 array astore 1 index /ClipRect 3 -1 roll put
  668.   } if
  669.   dictbeginpage /DefaultMatrix 1 index store setmatrix
  670.   dup          % for showing annotations below
  671.   count /pdfemptycount exch store
  672.   gsave
  673.     % If the page uses any transparency features, show it within
  674.     % a transparency group.
  675.   PDFversion 1.4 lt {
  676.     showpagecontents
  677.   } {
  678.     dup pageusestransparency {
  679.       % Show the page within a PDF 1.4 device filter.
  680.       0 .pushpdf14devicefilter {
  681.     % If the page has a Group, enclose contents in transparency group.
  682.         % (Adobe Tech Note 5407, sec 9.2)
  683.         dup /Group knownoget {
  684.       1 index /CropBox knownoget not {
  685.         1 index /MediaBox oget
  686.       } if .beginformgroup {
  687.         showpagecontents
  688.       } .internalstopped {
  689.         .discardtransparencygroup stop
  690.       } if .endtransparencygroup
  691.         } {
  692.       showpagecontents
  693.         } ifelse
  694.       } .internalstopped {
  695.     % todo: discard
  696.     .popdevicefilter stop
  697.       } if .popdevicefilter
  698.     } {
  699.       showpagecontents
  700.     } ifelse
  701.   } ifelse
  702.   grestore
  703.    % todo: mixing drawing ops outside the device filter could cause
  704.    % problems, for example with the pnga device.
  705.    /Annots knownoget { { oforce drawannot } forall } if
  706.    endpage
  707.    end            % scratch dict
  708. } bind def
  709. /showpagecontents {    % <pagedict> showpagecontents -
  710.   /Contents knownoget not { 0 array } if
  711.   dup type /arraytype ne { 1 array astore } if {
  712.     oforce false resolvestream pdfopdict .pdfrun
  713.   } forall
  714. } bind def
  715. /processcolorspace {    % - processcolorspace <colorspace>
  716.     % The following is per the PLRM3.
  717.   currentdevice 1 dict dup /ProcessColorModel dup put .getdeviceparams
  718.   exch pop exch pop
  719.   dup type /nametype ne { cvn } if
  720.   dup { setcolorspace } .internalstopped { pop /DeviceRGB } if
  721. } bind def
  722.  
  723. % ------ Transparency support ------ %
  724.  
  725. % Determine whether a page might invoke any transparency features:
  726. %    - Group in the page dictionary
  727. %    - Non-default ca, CA, or SMask in an ExtGState
  728. %    - Form XObject with Group
  729. %    - Image XObject with SMask
  730. % ****** DO WE NEED TO LOOK IN RESOURCE DICTS OF OTHER CONTENT STREAMS? ******
  731. /pageusestransparency {        % <pagedict> pageusestransparency <bool>
  732.   PDFversion 1.4 lt {
  733.     pop false
  734.   } {
  735.     dup /Group known {
  736.       pop true
  737.     } {
  738.       false exch {
  739.     dup resourceusestransparency { pop not exit } if
  740.     /Parent knownoget not { exit } if
  741.       } loop
  742.     } ifelse
  743.   } ifelse
  744. } bind def
  745. % Check the Resources of a page or Form.
  746. /resourceusestransparency {    % <dict> resourceusestransparency <bool>
  747.   {    % Use loop to provide an exitable context.
  748.     /Resources knownoget not { 0 dict } if
  749.     dup /ExtGState knownoget {
  750.       false exch {
  751.     exch pop oforce
  752.     dup /ca knownoget { 1 ne { pop not exit } if } if
  753.     dup /CA knownoget { 1 ne { pop not exit } if } if
  754.     dup /SMask knownoget { /None ne { pop not exit } if } if
  755.     pop
  756.       } forall { pop true exit } if
  757.     } if
  758.     dup /XObject knownoget {
  759.       false exch {
  760.     exch pop oforce dup /Subtype get
  761.     dup /Image eq { 1 index /SMask known { pop pop not exit } if } if
  762.     /Form eq {
  763.       dup /Group known { pop not exit } if
  764.       resourceusestransparency { not exit } if
  765.     } {
  766.       pop
  767.     } ifelse
  768.       } forall { pop true exit } if
  769.     } if
  770.     pop false exit
  771.   } loop
  772. } bind def
  773.  
  774. end            % pdfdict
  775. .setglobal
  776.